home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / P / ProTERM Demo 1.01.sit / ProTERM Demo 1.01 / Macros / Macro.GEnie < prev    next >
Encoding:
Text File  |  1994-12-29  |  772 b   |  47 lines  |  [TEXT/PTM1]
  1. /*
  2. GEnie AutoScan macro for ProTERM
  3.  
  4. To use this macro, add the command: EXTERN(":Macros:Macro.Delphi",main());
  5. to the end of your Delphi logon macro, prior to the END; command.
  6. */
  7.  
  8. INT mail;
  9.  
  10. mail = WT("No Letters","Letter Waiting","Letters Waiting");
  11. WT("continue>");
  12.  
  13. IF (mail > 1) {
  14.  PR("m200;2^m");
  15.  PROMPT("help>");
  16. }
  17.  
  18. PR("m605;1^m");
  19. PROMPT("1 >");
  20. PR("top^m");
  21. PROMPT("1 >");
  22. PR("read all new noreply^m");
  23. PROMPT("1 >");
  24. //
  25. // ...add your own forum access commands here...
  26. //
  27. PR("bye^m");
  28. RETURN();
  29.  
  30.  
  31. //
  32. // special function to detect a prompt
  33. //
  34. // waits for a prompt character followed by "no activity"
  35. // to avoid detecting the prompt within a stream of data.
  36. //
  37.  
  38. FUNC prompt(STR text)
  39. {
  40.  WHILE(1) {
  41.   WT(700, text);
  42.   IF (!WT(200,"")) { BREAK; }
  43.  }
  44.  RETURN;
  45. }
  46.  
  47.